home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / twm-listing 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  318b  |  19 lines
  1. 10 rem wcmd- und uhr-window-demo
  2. 20 :
  3. 30 sys 32168 :rem twm-initialisierung
  4. 40 :
  5. 50 (NULL)1,0,30,2,39,1
  6. 60 (NULL)1,12,0
  7. 70 (NULL)2,5,0,20,25,1,0,"haupt-window"
  8. 80 (NULL)2,8,128
  9. 90 (NULL)3,5,27,9,39,1,0,"anzeige"
  10. 100 (NULL)3,4,128
  11. 110 :
  12. 120 (NULL)1 :(NULL) "123456",1,31
  13. 130 (NULL)3
  14. 140 (NULL)2
  15. 150 for n=1 to 1000
  16. 160 (NULL)3 :print"  n ="n; :(NULL)2
  17. 170 print n;"^ 2 = "n^2
  18. 180 next
  19.